Game Classics 18/Game Classics 18 .iso/CARD/ANIBJ/ANIBJ.EXE/0/RCDATA/TANIMATE/TANIMATE.txt

Text File | 1997-04-23 | 11KB | 548 lines

object Animate: TAnimate
  Left = 236
  Top = 171
  HelpContext = 41005
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderStyle = bsSingle
  Caption = 'Animated Blackjack'
  ClientHeight = 434
  ClientWidth = 632
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object dbody: TImage
    Left = 384
    Top = 512
    Width = 105
    Height = 167
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object dhead2: TImage
    Left = 496
    Top = 512
    Width = 101
    Height = 82
    Picture.Data = {<image002.bmp>}
    Visible = False
  end
  object dlarm1: TImage
    Left = 768
    Top = 512
    Width = 69
    Height = 199
    Picture.Data = {<image003.bmp>}
    Visible = False
  end
  object dlarm2: TImage
    Left = 848
    Top = 512
    Width = 103
    Height = 148
    Picture.Data = {<image004.bmp>}
    Visible = False
  end
  object dlarm3: TImage
    Left = 960
    Top = 512
    Width = 57
    Height = 195
    Picture.Data = {<image005.bmp>}
    Visible = False
  end
  object drarm1: TImage
    Left = 600
    Top = 512
    Width = 68
    Height = 81
    Picture.Data = {<image006.bmp>}
    Visible = False
  end
  object drarm2: TImage
    Left = 672
    Top = 512
    Width = 92
    Height = 153
    Picture.Data = {<image007.bmp>}
    Visible = False
  end
  object dtable1: TImage
    Left = 40
    Top = 592
    Width = 300
    Height = 15
    Picture.Data = {<image008.bmp>}
    Visible = False
  end
  object dtable2: TImage
    Left = 40
    Top = 616
    Width = 300
    Height = 61
    Picture.Data = {<image009.bmp>}
    Visible = False
  end
  object dlarm0: TImage
    Left = 572
    Top = 604
    Width = 51
    Height = 77
    Picture.Data = {<image010.bmp>}
    Visible = False
  end
  object ptable: TImage
    Left = 502
    Top = 604
    Width = 61
    Height = 61
    Picture.Data = {<image011.bmp>}
    Visible = False
  end
  object ptable2: TImage
    Left = 30
    Top = 684
    Width = 250
    Height = 8
    Picture.Data = {<image012.bmp>}
    Visible = False
  end
  object Cards: TImage
    Left = 648
    Top = 200
    Width = 533
    Height = 216
    Picture.Data = {<image013.bmp>}
    Visible = False
  end
  object CardBack: TImage
    Left = 296
    Top = 288
    Width = 41
    Height = 54
    Picture.Data = {<image014.bmp>}
    Visible = False
  end
  object balloon: TImage
    Left = 272
    Top = 72
    Width = 97
    Height = 70
    Picture.Data = {<image015.bmp>}
    Visible = False
  end
  object balloon2: TImage
    Left = 272
    Top = 152
    Width = 97
    Height = 70
    Picture.Data = {<image016.bmp>}
    Visible = False
  end
  object Heads: TImage
    Left = 664
    Top = 0
    Width = 178
    Height = 1602
    Picture.Data = {<image017.bmp>}
    Visible = False
  end
  object Digits: TImage
    Left = 32
    Top = 256
    Width = 188
    Height = 147
    Picture.Data = {<image018.bmp>}
    Visible = False
  end
  object Head2: TImage
    Left = 848
    Top = 4
    Width = 178
    Height = 1602
    Picture.Data = {<image019.bmp>}
    Visible = False
  end
  object Button6: TButton
    Left = 528
    Top = 392
    Width = 97
    Height = 41
    HelpContext = 41005
    Caption = '&Deal'
    Default = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button6Click
  end
  object Panel1: TPanel
    Left = 524
    Top = 12
    Width = 105
    Height = 56
    TabOrder = 1
    object Image1: TImage
      Tag = 1
      Left = 1
      Top = 1
      Width = 103
      Height = 54
      Align = alClient
      OnClick = Image1Click
    end
  end
  object Panel2: TPanel
    Left = 524
    Top = 75
    Width = 105
    Height = 56
    TabOrder = 2
    object Image2: TImage
      Tag = 2
      Left = 1
      Top = 1
      Width = 103
      Height = 54
      Align = alClient
      OnClick = Image1Click
    end
  end
  object Panel3: TPanel
    Left = 524
    Top = 139
    Width = 105
    Height = 56
    TabOrder = 3
    object Image3: TImage
      Tag = 3
      Left = 1
      Top = 1
      Width = 103
      Height = 54
      Align = alClient
      OnClick = Image1Click
    end
  end
  object Panel4: TPanel
    Left = 524
    Top = 203
    Width = 105
    Height = 56
    TabOrder = 4
    object Image4: TImage
      Tag = 4
      Left = 1
      Top = 1
      Width = 103
      Height = 54
      Align = alClient
      OnClick = Image1Click
    end
  end
  object Panel5: TPanel
    Left = 524
    Top = 267
    Width = 105
    Height = 56
    TabOrder = 5
    object Image5: TImage
      Tag = 5
      Left = 1
      Top = 1
      Width = 103
      Height = 54
      Align = alClient
      OnClick = Image1Click
    end
  end
  object Panel6: TPanel
    Left = 524
    Top = 328
    Width = 105
    Height = 56
    TabOrder = 6
    object Image6: TImage
      Tag = 6
      Left = 1
      Top = 1
      Width = 103
      Height = 54
      Align = alClient
      OnClick = Image1Click
    end
  end
  object Button1: TButton
    Left = 384
    Top = 73
    Width = 97
    Height = 41
    HelpContext = 41005
    Caption = '&Catalog'
    TabOrder = 7
    Visible = False
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 384
    Top = 121
    Width = 97
    Height = 41
    HelpContext = 41005
    Caption = '&New Game'
    TabOrder = 8
    Visible = False
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 384
    Top = 169
    Width = 97
    Height = 41
    HelpContext = 41005
    Caption = '&Speed: Very Fast'
    TabOrder = 9
    Visible = False
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 384
    Top = 217
    Width = 97
    Height = 41
    HelpContext = 41005
    Caption = 'E&xit'
    TabOrder = 10
    Visible = False
    OnClick = Button4Click
  end
  object BitBtn1: TBitBtn
    Left = 384
    Top = 25
    Width = 97
    Height = 41
    HelpContext = 41005
    TabOrder = 11
    Visible = False
    OnClick = BitBtn1Click
    Kind = bkHelp
  end
  object MainMenu1: TMainMenu
    Left = 326
    Top = 4
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object New1: TMenuItem
        Caption = '&New Game'
        ShortCut = 0
        OnClick = New1Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit Program'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object Hints1: TMenuItem
        Caption = 'Hints'
        ShortCut = 0
        object On1: TMenuItem
          Caption = 'On'
          ShortCut = 0
          OnClick = On1Click
        end
      end
      object Sound1: TMenuItem
        Caption = 'Soun&d'
        ShortCut = 0
        object SoundOn1: TMenuItem
          Caption = 'Sound On'
          ShortCut = 0
          OnClick = SoundOn1Click
        end
        object N4: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object BlackjackSound1: TMenuItem
          Caption = 'Blackjack Sound'
          ShortCut = 0
          OnClick = BlackjackSound1Click
        end
        object CardDealSound1: TMenuItem
          Caption = 'Card Deal Sound'
          ShortCut = 0
          OnClick = CardDealSound1Click
        end
        object LoseSound1: TMenuItem
          Caption = 'Lose Sound'
          ShortCut = 0
          OnClick = LoseSound1Click
        end
        object Shuffle1: TMenuItem
          Caption = 'Shuffle Sound'
          ShortCut = 0
          OnClick = Shuffle1Click
        end
        object WinSound1: TMenuItem
          Caption = 'Win Sound'
          ShortCut = 0
          OnClick = WinSound1Click
        end
        object N5: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object ChangeSounds1: TMenuItem
          Caption = 'Change Sounds'
          ShortCut = 0
          OnClick = ChangeSounds1Click
        end
      end
      object Speed1: TMenuItem
        Caption = '&Speed'
        ShortCut = 0
        object VeryFast1: TMenuItem
          Caption = '&Very Fast'
          ShortCut = 0
          OnClick = VeryFast1Click
        end
        object Fast1: TMenuItem
          Caption = '&Fast'
          Checked = True
          ShortCut = 0
          OnClick = Fast1Click
        end
        object Medium1: TMenuItem
          Caption = '&Medium'
          ShortCut = 0
          OnClick = Medium1Click
        end
        object Slow1: TMenuItem
          Caption = '&Slow'
          ShortCut = 0
          OnClick = Slow1Click
        end
      end
      object StrategyCards1: TMenuItem
        Caption = 'Strategy &Cards'
        ShortCut = 0
        OnClick = StrategyCards1Click
      end
    end
    object AutoDeal1: TMenuItem
      Caption = '&Auto Deal'
      ShortCut = 0
      object AutoDeal2: TMenuItem
        Caption = 'Auto Deal'
        ShortCut = 0
        OnClick = AutoDeal2Click
      end
    end
    object CardCount1: TMenuItem
      Caption = 'C&ard Count'
      ShortCut = 0
      OnClick = CardCount1Click
    end
    object Register1: TMenuItem
      Caption = '&Register'
      ShortCut = 0
      OnClick = Register1Click
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object About1: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = About1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Manual1: TMenuItem
        Caption = '&Manual Contents'
        ShortCut = 0
        OnClick = Manual1Click
      end
      object CountingCards1: TMenuItem
        Caption = 'C&ounting Cards'
        ShortCut = 0
        OnClick = CountingCards1Click
      end
      object Troubleshooting1: TMenuItem
        Caption = '&Troubleshooting'
        ShortCut = 0
        OnClick = Troubleshooting1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Catalog1: TMenuItem
        Caption = '&Catalog'
        ShortCut = 0
        OnClick = Catalog1Click
      end
      object freeCD1: TMenuItem
        Caption = '&Free CD'
        ShortCut = 0
        OnClick = freeCD1Click
      end
    end
  end
  object OpenTimer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = OpenTimerTimer
    Left = 294
    Top = 3
  end
  object AutoModeTimer: TTimer
    Enabled = False
    Interval = 200
    OnTimer = AutoModeTimerTimer
    Left = 198
    Top = 3
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Left = 262
    Top = 3
  end
  object SaveDialog1: TSaveDialog
    FileEditStyle = fsEdit
    Left = 230
    Top = 3
  end
  object Thinking: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = ThinkingTimer
    Left = 150
    Top = 3
  end
end